home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / pc / pcf / ds.dir / 00270.ls < prev    next >
Encoding:
Text File  |  1995-10-08  |  488 b   |  23 lines
  1. on mouseUp
  2.   global LastButton, movieID, gSpeed, gRewind
  3.   if gRewind = 1 then
  4.     QTMovie("Direct", movieID, "reverse")
  5.     set gRewind to 0
  6.   end if
  7.   set gRewind to 0
  8.   if gSpeed = 2 then
  9.     set speed to 1.0
  10.     set speed to string(speed)
  11.     QTMovie("Direct", movieID, "Set", "rate", speed)
  12.     set gSpeed to 1
  13.   end if
  14.   put "inside play button, script 16"
  15.   put "LastButton", LastButton
  16.   if LastButton = 1 then
  17.     unpauseQT()
  18.   else
  19.     go(19)
  20.   end if
  21.   set LastButton to 1
  22. end
  23.